home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga3 / ninfo12.lha / NodeInfo.rexx < prev    next >
OS/2 REXX Batch file  |  1994-01-31  |  1KB  |  50 lines
  1. /* $VER: Online Node Info v1.2 Wed 31-Jan-94 20:15:00                  */
  2. /* Original CNet Version by Charles Johnson & Re-Written by Ignas Fast */
  3. /* Total Re-Write by Dragon Slayer of Ami West - 707/443-4715          */
  4. /* 2 16.8 Nodes - 4.2 Gigs - Amiga/Mac/CBM/IBM - 2.5 Gigs XXX Rated    */
  5.  
  6. options results
  7.  
  8. Transmit 'n2c2Node Info:c3  Enter a full/partial node address and I will attempt to'
  9. Transmit '            read it from the nodelist- Node addresses are in the'
  10. Transmit '            form of c2"c7Zonec2:c7Netc2/c7Nodec2.c7Pointc2"c3, ex.:'
  11. Transmit '              1:125/38     Ami West BBS'
  12.  
  13. NODEINFO:
  14.    Sendstring 'n1c3Enter c7Network Address c3you wish to viewc2: c7'
  15.    QUERY;address=result
  16.    IF address = '' then DO
  17.       Transmit 'n1c2Abortingc7...n1'
  18.       EXIT
  19.    END
  20.    
  21. ADDRESS COMMAND 'run bin:getnode 'address' >pipe:GNode'
  22.  
  23. i=0
  24.  
  25. OPEN(gn,'pipe:GNode','R')
  26.    DO until eof(gn)
  27.       i=i+1;gn.i = READLN(gn)
  28.    END
  29. CLOSE(gn)               
  30.  
  31.    IF word(gn.1,2) = 'not' | word(gn.1,1) = 'Invalid' then DO
  32.       Transmit 'n1c2Sorry, Node not found or improper address c2[c7'address'c2]c7...'
  33.       signal AGAIN
  34.    END
  35.  
  36. Transmit 'n1c3Node information foundc7...n1c2'
  37.  
  38. DO i = 1 to 7;Transmit gn.i;END
  39.  
  40. AGAIN:
  41.    Sendstring 'n1c3View another address? c2[c7No c2]<4c7'
  42.    GETCHAR;ANS = upper(result)
  43.    IF ANS = 'Y' then DO
  44.       Transmit 'Yes'
  45.       signal NODEINFO
  46.    END
  47. Transmit 'n1'
  48.  
  49. EXIT
  50.